Internal - set if a new record filter has been defined.")
(defvar forms--modified-record-filter nil "\
Internal - set if a modified record filter has been defined.")
(defvar forms--dynamic-text nil "\
Internal - holds dynamic text to insert between fields.")
(defvar forms-fields nil "\
List with fields of the current forms. First field has number 1.")
(defun forms-mode (&optional primary) "\
Major mode to visit files in a field-structured manner using a form.
Commands (prefix with C-c if not in read-only mode):
\\{forms-mode-map}" (interactive) (byte-code " õ  ÃÄ!ÃÅ!ÃÆ!ÃÇ!ÃÈ!ÃÉ!ÃÊ!ÃË!ÌÍ!Î : ÏÐ!B ÏÑ!ÒVX ÏÓ!X ;X ÏÔ! ;{ GÕ={ Ö \" Ï×! ÏØ!ÃÙ!ÃÚ!Û ÃÜ!Ý ÃÞ!ß Ãà!áÍ!§ ÍK¶ âÍ! ¶ á! ¶ ÌÍ!Ãã!áä!Ë äKÚ âä! Ú á$! Ú $#Ìä!Ãå!Ãæ!ç(ç)êç!ë Ãì!Ãí!Ãî!Ãï!Ãð!1ò 1ó1!ô õ !,ç 6,q÷p!(6øed\")-6>ù)ú;ü=Ãþ!ÿ @ A ç!ÃB !C B.ÕWlÕ.D .!E F !G ù" [primary forms--mode-setup kill-all-local-variables make-local-variable forms-file forms-number-of-fields forms-format-list forms-field-sep forms-read-only forms-multi-line forms-forms-scroll forms-forms-jump fmakunbound forms-new-record-filter eval-current-buffer error "'forms-file' has not been set" "'forms-number-of-fields' has not been set" 0 "'forms-number-of-fields' must be > 0" "'forms-field-sep' is not a string" 1 string= "'forms-multi-line' is equal to 'forms-field-sep'" "'forms-multi-line' must be nil or a one-character string" forms--number-of-markers forms--markers forms--process-format-list forms--format forms--make-format forms--parser forms--make-parser forms--new-record-filter fboundp boundp forms--modified-record-filter forms-modified-record-filter forms--dynamic-text forms-fields nil buffer-read-only buffer-file-name auto-save-mode erase-buffer forms--file-buffer forms--total-records forms--current-record forms--the-record-list forms--search-rexexp forms-mode-map make-keymap forms--mode-commands forms--change-commands find-file-noselect ro bury-buffer count-lines t forms-mode major-mode "Forms" mode-name minor-mode-alist forms--set-minor-mode forms--set-keymaps set-buffer-modified-p revert-buffer-function forms-revert-buffer forms-jump-record run-hooks forms-mode-hooks forms--help] 3))
(defun forms--process-format-list nil "\
Validate forms-format-list and set some global variables." (byte-code "ÀÁÂ\"\n ÃÄ!\n< ÃÅ!Æ\nÆ \nË\n³ Ì\n!Í\n! 9G Ð!G Ñ!;£ Ò! ÆXc Vk ÃÔ#TV£ £ < ÕÌ!!£ ÃÖ×Ì!!\"£ ÃØ×!\"\nÙ\nCË#*$ +ÀÚÂ\"Û\n!ÀÜÂÇ#ÝË\" " [forms--debug "forms-forms-list before 1st pass:\n" forms-format-list error "'forms-format-list' has not been set" "'forms-format-list' is not a list" 0 forms--number-of-markers field-num this-item the-list nil car-safe cdr-safe rem el boundp eval numberp forms-number-of-fields "Forms error: field number %d out of range 1..%d" fboundp "Forms error: not a function: %s" prin1-to-string "Invalid element in 'forms-format-list': %s" append "forms-forms-list after 1st pass:\n" forms--concat-adjacent "forms-forms-list after 2nd pass:\n" make-vector forms--markers] 6))
(defun forms--make-format nil "\
Generate format function for forms" (byte-code "À !ÃÂ!" [forms--format-maker forms-format-list forms--format forms--debug] 2))
(defun forms--format-maker (the-format-list) "\
Returns the parser function for forms" (byte-code "ÀÂÃÄÂÅÆ\"\"\")" [0 the-marker append (lambda (arg) (setq forms--dynamic-text nil)) apply mapcar forms--make-format-elt the-format-list] 7))
Concatenate adjacent strings in the-list and return the resulting list" (byte-code ":' ÁA!@;! \n@;! @\n@P\nAB% @\nB)" [the-list forms--concat-adjacent the-rest] 2))
(defun forms--make-parser nil "\
Generate parser function for forms" (byte-code "À !ÃÂ!" [forms--parser-maker forms-format-list forms--parser forms--debug] 2))
(defun forms--parser-maker (the-format-list) "\
Returns the parser function for forms" (byte-code "ÀÄÀC\"ÆÀÄÇÈÄÉÊ \"\"\"E+" [nil the--format-list seen-text the-field append the-format-list lambda (let (here) (goto-char (point-min))) apply mapcar forms--make-parser-elt] 9))
(byte-code "ÀÁMÂÃM" [forms--make-parser-elt (lambda (el) (byte-code ";A ) ÂÃÄÅÆCÇ#DÈÉEEÊË SÌÍÎÏGEEFE; ÃÄÐÑ!DDÈÒEEÓGDDÔÖ×!U Q ÈØ #Öe ÊË SÙFC< ~ ÚÛÜÝÊË SÞFß%C àÔÖ" [el the-field (setq here (point)) if not append (search-forward) (nil t nil) error "Parse error: cannot find \"%s\"" aset the-recordv buffer-substring here - (point) looking-at regexp-quote "Parse error: not looking at \"%s\"" forward-char t seen-text nil numberp "Cannot parse adjacent fields %d and %d" (buffer-substring (point) (point-max)) list let ((here (point)) (the-dyntext (car-safe forms--dynamic-text))) (if (not (search-forward the-dyntext nil t nil)) (error "Parse error: cannot find \"%s\"" the-dyntext)) (buffer-substring here (- (point) (length the-dyntext))) (setq forms--dynamic-text (cdr-safe forms--dynamic-text)) ((let ((the-dyntext (car-safe forms--dynamic-text))) (if (not (looking-at (regexp-quote the-dyntext))) (error "Parse error: not looking at \"%s\"" the-dyntext)) (forward-char (length the-dyntext)) (setq forms--dynamic-text (cdr-safe forms--dynamic-text))))] 10)) forms--set-minor-mode (lambda nil (byte-code " Á" [forms-read-only " View" minor-mode-alist] 2))] 2)
(defun forms--set-keymaps nil "\
Set the keymaps used in this mode." (byte-code " Á\n!ÁÃ !ÄÅ Æ\n#ÄÅ ÇÈ#" [forms-read-only use-local-map forms-mode-map make-sparse-keymap define-key current-local-map "" " " forms-next-field] 4))
Fetch the current record from the file buffer." (byte-code "n ÀÁ!`Ã Ä\n`\"\nb)" [forward-line 0 here end-of-line buffer-substring] 3))
(defun forms--show-record (the-record) "\
Format THE-RECORD according to forms-format-list,
and display it in the current buffer." (byte-code "ÀÁÀ\nG È Ê# \nP Ë\n #@ O Í C\" \\) ,ÀÐ GUx Ò ÓÔG#GWx ÍÕGZÖ\"\"ÍÀCÀ#!ebÙÀ!Û Ý R " [nil 0 forms-field-sep field-sep-length found-pos start-pos the-result forms-multi-line forms--trans the-record "\n" string-match ent append forms--the-record-list buffer-read-only erase-buffer forms-number-of-fields beep message "Record has %d fields instead of %d." make-list "" forms-fields forms--format set-buffer-modified-p forms-read-only " " forms--current-record "/" forms--total-records mode-line-process] 5))
(defun forms--parse-form nil "\
Parse contents of form into list of strings." (byte-code "ÀÂ ! )( ÂÇ \" !ÉÀ\"A), É À\")" [nil the-recordv vconcat forms--the-record-list forms--dynamic-text forms--parser forms--modified-record-filter [nil] the-fields append] 3))
(defun forms--update nil "\
Update current record with contents of form. As a side effect: sets
Check if this form has been modified, and call forms--update if so." (byte-code "ÀÁ! `Ã ÄÁ!\nb)" [buffer-modified-p nil here forms--update set-buffer-modified-p] 2))
(defun forms-find-file (fn) "\
Visit file FN in forms mode" (interactive "fForms file: ") (byte-code "À !\n ÃÄ!" [find-file-read-only fn forms--mode-setup forms-mode t] 2))
(defun forms-find-file-other-window (fn) "\
Visit file FN in form mode in other window" (interactive "fFbrowse file in other window: ") (byte-code "À ! ÄÅ!" [find-file-other-window fn eval-current-buffer forms--mode-setup forms-mode t] 2))
(defun forms-exit (query) "\
Normal exit. Modified buffers are saved." (interactive "P") (byte-code "À Â\"" [forms--exit query t] 3))
Advance to the ARGth following record." (interactive "P") (byte-code "À Â !\\Ä\"" [forms-jump-record forms--current-record prefix-numeric-value arg t] 4))
(defun forms-prev-record (arg) "\
Advance to the ARGth previous record." (interactive "P") (byte-code "À Â !ZÄ\"" [forms-jump-record forms--current-record prefix-numeric-value arg t] 4))
Jump to a random record." (interactive "NRecord number: ") (byte-code " V ÂX à ? v ÅÆ #Ç Z \nË qÍÂ! O \nÂU[ \nÍ\n![\\\\ [ \nÎ![\\\\ Ï )! U? u à ÅÐ \"*" [arg forms--total-records 0 beep relative message "Record number %d out of range 1..%d" forms--checkmod forms--current-record cur disp forms--show-record forms--file-buffer forward-line goto-line forms--get-record "Stuck at record %d."] 5))
(defun forms-first-record nil "\
Jump to first record." (interactive) (byte-code "ÀÁ!" [forms-jump-record 1] 2))
(defun forms-last-record nil "\
Jump to last record. As a side effect: re-calculates the number
of records in the data file." (interactive) (byte-code "qÁed\") U Ä \nÅÆ \")Ç !" [forms--file-buffer count-lines numrec forms--total-records beep message "Number of records reset to %d." forms-jump-record] 4))
(defun forms-view-mode nil "\
Visit buffer read-only." (interactive) (byte-code "? Á ÂÃ " [forms-read-only forms--checkmod t forms-mode] 1))
(defun forms-edit-mode nil "\
Make form suitable for editing, if possible." (interactive) (byte-code "\nq ) ÄÅÆ\"È ÉÊ \"? % Ë )" [forms-read-only ro forms--file-buffer buffer-read-only t message "No write access to \"%s\"" forms-file beep nil equal forms-mode] 3))
(defun forms-insert-record (arg) "\
Create a new record before the current one. With ARG: store the
record after the current one.
If a function forms-new-record-filter is defined, or forms-new-record-filter
Reverts current form to un-modified." (interactive "P") (byte-code "\n ÁÂ! ÃÄ!Å!" [noconfirm yes-or-no-p "Revert form to unmodified? " set-buffer-modified-p nil forms-jump-record forms--current-record] 2))
(defun forms-next-field (arg) "\
Jump to ARG-th next field." (interactive "p") (byte-code "À`ÁÀ ÀU Ç \n\\ÈÉ? % \nÀHb," [0 nil cnt there here i arg 1 done (byte-code " W , \nH% X% SÆX% bÇÈÉ\"T " [i forms--number-of-markers forms--markers there here cnt 0 throw done t] 4) forms--markers] 4))
(defun forms-enumerate (the-fields) "\
Take a quoted list of symbols, and set their values to the numbers
